use BoostedTest::RDBO::Project;
use BoostedTest::RDBO::Project::Manager;

foreach my $prj (@{BoostedTest::RDBO::Project::Manager->get_projects}) {
	print $prj->delete;
}

